home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b4.d64 / club mail list.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  373 lines
  1. 1 POKE53280,0:POKE53281,0:PRINT"[147]DO YOU WANT INST.    ?"
  2. 2 PRINT"YES OR NO?
  3. 3 [153]"(Y=YES N=NO)WAIT"
  4. 4 [161]Y$:[139]Y$[178]""[167]4
  5. 5 [139]Y$[178]"Y"[167]7
  6. 6 [139]Y$[178]"N"[167]32
  7. 7 [151]36879,8
  8. 8 [153]"LOADSYSCLUB MAIL LIST (RANDOM FILE PROGRAM).   "
  9. 9 [153]"THIS IS A DISK OPERATED SYSTEM"
  10. 10 [153]"THAT WILL WORK WITH 1 1541 DISK"
  11. 11 [153]"DRIVE BUT REQUIRES 2 DRIVES #8"
  12. 12 [153]"AND #9 TO COPY THE DATA FILE."
  13. 13 [153]"TO START THE FIRST TIME INSERT A
  14. 14 PRINT"BLANK DISK THAT HAS BEEN FORMATTED      INTO #9."
  15. 15 PRINT"THEN RUN[146] THE PROGRAM. THIS PROGRAM"
  16. 16 PRINT"IS DESIGNED TO BE'USER FRIENDLY'.[146]"
  17. 17 GOSUB364
  18. 18 PRINT"[147] TO USE THIS PROGRAM REQUIRES:"
  19. 19 PRINT"1.C-64 COMPUTER.":PRINT"2.1 OR 2 1541 (OR 1540) DISK DRIVES"
  20. 20 PRINT"3.A PRINTER.
  21. 21 [153]"TO CONTINUE PRESS 'G' TO GET STARTEDWAITSYS"
  22. 22 [153]"PRESS 'N' TO STOP     PROGRAM   WAITSYS"
  23. 23 [161]Q$:[139]Q$[178]""[167]23
  24. 24 [139]Q$[178]"G"[167]32
  25. 25 [139]Q$[178]"N"[167][144]
  26. 26 [143]************************************************************
  27. 27 [143]**THIS PROGRAM WAS EXPANDED FROM A RANDOM FILE PROGRAM BY**"
  28. 28 REM**BY STEVE ALFORD AND WAYNE LOWERY OF NEW ORLEANS,LA     **
  29. 29 REM**TO USE PRINTER JUST ENTER OPTION YOU WANT AND CHECK    **
  30. 30 REM************************************************************
  31. 31 REMLABEL SIZE. REGULAR LABEL FROM RADIO SHACK 2 ACROSS WORK **
  32. 32 POKE53280,0:POKE53281,0
  33. 33 DIMI$(664):FD=0:FX=7:CH=2:FP=1:DIMA%(664):DIMB%(25):DIMBB$(10):DIMA3%(10)
  34. 34 FY=7
  35. 35 PRINT"[147][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":
  36. 36 PRINT"  [158]INSERT DATA SHEET"
  37. 37 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":
  38. 38 PRINT"[158]    START PRESS [156]'S'"
  39. 39 GETP$:IFP$<>"S"THEN39
  40. 40 OPEN15,8,15,"I0":OPEN2,8,2,"#"
  41. 41 PRINT"[147][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":
  42. 42 PRINT"INDEX FILE OPERATION"
  43. 43 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  44. 44 INPUT"     [158]NEW SHEET? N[157][157][157]";O$:PRINT""
  45. 45 IFO$="N"THEN50
  46. 46 IFO$<>"Y"THEN44
  47. 47 PRINT:PRINT"[147][158]    WAIT!":FORI=1TO664
  48. 48 PRINT"    [157][157][157][157][157]"I;:I$(I)="/"
  49. 49 PRINTI$(I):NEXT:GOTO54
  50. 50 OPEN5,8,5,"0:INDEX,S,R"
  51. 51 FORI=1TO664:INPUT#5,I$(I)
  52. 52 PRINT"[158]WAIT!     [157][157][157][157][157]"I;I$(I)
  53. 53 NEXTI:CLOSE5:FX=1:GOSUB135
  54. 54 PRINT"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]":
  55. 55 PRINT"     JOB MENU         ":
  56. 56 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":
  57. 57 PRINT
  58. 58 PRINT"[159]     1=ENTER NEW NAME"
  59. 59 PRINT"     2=DELETE"
  60. 60 PRINT"     3=PRINT NAMES"
  61. 61 PRINT"[156]     4=DISPLAY NAMES"
  62. 62 PRINT"[158]     5=SEARCH"
  63. 63 PRINT"     6=COPY MAIL LIST"
  64. 64 PRINT"     0=END"
  65. 65 INPUT"[158]1 , 2 , 3 , 4 , 0   1[157][157][157]";O$
  66. 66 IFO$="0"THENCLOSE15:CLOSE5:CLOSE2:END
  67. 67 IFO$="1"THEN77
  68. 68 IFO$="3"THEN312
  69. 69 IFO$="4"THEN154
  70. 70 IFO$="5"THEN113
  71. 71 IFO$="6"THEN339
  72. 72 IFO$<>"2"THEN54
  73. 73 GOTO97
  74. 74 REM***********************
  75. 75 REM* MASTER FILE CREATE  *
  76. 76 REM***********************
  77. 77 PRINT"[158] PLEASE ENTER FIRST LETTER OF LAST NAME (ENTER 0[146] WHEN THRU)":V=0
  78. 78 INPUTM$:IFM$="0"THEN92
  79. 79 GOSUB171:IFV=1THEN77
  80. 80 FORF=XXTOX1:IFI$(F)<>"/"THEN NEXTF
  81. 81 PRINT"RECORD NO. =";F
  82. 82 INPUT"(1)NAME    =.[157][157][157]";FB$(1)
  83. 83 INPUT"(2)ADDRESS =.[157][157][157]";FB$(2)
  84. 84 INPUT"(3)CITY    =.[157][157][157]";FB$(3)
  85. 85 INPUT"(4)ZIP     =.[157][157][157]";FB$(4)
  86. 86 INPUT"(5)TEL     =.[157][157][157]";FB$(5)
  87. 87 INPUT"(6)COMMENT =.[157][157][157]";FB$(6)
  88. 88 INPUT"(7)CLUBINFO=.[157][157][157]";FB$(7)
  89. 89 GOSUB218
  90. 90 I$(F)="1"
  91. 91 GOTO77
  92. 92 OPEN5,8,5,"@0:INDEX,S,W"
  93. 93 FORI=1TO664:PRINT#5,I$(I);CHR$(13);
  94. 94 PRINT"[147]WAIT!     [157][157][157][157][157]"I;I$(I)
  95. 95 NEXT:CLOSE5:GOSUB135
  96. 96 GOTO54
  97. 97 REM***********************
  98. 98 REM*  MASTER FILE DELETE *
  99. 99 REM***********************
  100. 100 PRINT"[147][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]":
  101. 101 PRINT"  MASTER FILE DELETE"
  102. 102 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":PRINT
  103. 103 INPUT"[158]RECORD NO. =0[157][157][157]";F
  104. 104 IFF=0THEN108
  105. 105 IFI$(F)<>"1"THEN103
  106. 106 I$(F)="/":PRINT"[156]RECORD NO."F;"DELETE"
  107. 107 GOTO103
  108. 108 OPEN5,8,5,"@0:INDEX,S,W"
  109. 109 FORI=1TO664:PRINT#5,I$(I);CHR$(13);
  110. 110 PRINT"[147]WAIT!     [157][157][157][157][157]"I;I$(I)
  111. 111 NEXT:CLOSE5:GOSUB135
  112. 112 GOTO54
  113. 113 REM***********************
  114. 114 REM*  FILE SEARCH        *
  115. 115 REM***********************
  116. 116 PRINT"[147][158][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]":
  117. 117 PRINT"      SEARCH "
  118. 118 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":PRINT:FY=7
  119. 119 INPUT"RECORD NO. = 0[157][157][157][158]";F
  120. 120 IFF=0THEN54
  121. 121 IFI$(F)<>"1"THEN119
  122. 122 GOSUB207
  123. 123 PRINT"[158](1)NAME     = [146]";FB$(1)
  124. 124 PRINT"[158](2)ADDRESS  = [146]";FB$(2)
  125. 125 PRINT"[158](3)CITY     = [146]";FB$(3)
  126. 126 PRINT"[158](4)ZIP      = [146]";FB$(4)
  127. 127 PRINT"[158](5)TEL      = [146]";FB$(5)
  128. 128 PRINT"[158](6)COMMENT  = [146]";FB$(6)
  129. 129 PRINT"[158](7)CLUBINFO.= [146]";FB$(7)
  130. 130 PRINT"---------------------"
  131. 131 GOSUB271
  132. 132 GOSUB256
  133. 133 IFT<>0THENRETURN
  134. 134 GOTO119
  135. 135 FORX=1TO664:A%(X)=0:NEXTX:Y=1:FORX=1TO664:IFI$(X)="1"THENA%(Y)=X:Y=Y+1
  136. 136 NEXTX:RETURN
  137. 137 PRINT"[147]RECORD   NAME"
  138. 138 XY=1:FX=1
  139. 139 FORX=XXTOX1:F=A%(X):GOSUB328:PRINTA%(X);FB$(1)
  140. 140 FORXZ=2TO1:PRINTFB$(XZ):NEXTXZ
  141. 141 REM:IFXY=10THENXY=1:GOTO1020
  142. 142 REM:XY=XY+1:NEXTX
  143. 143 NEXTX
  144. 144 GOSUB245
  145. 145 PRINT"[158]PRESS RETURN TO GO    BACK TO JOB MENU"
  146. 146 GETC$:IFC$<>CHR$(13)THEN146
  147. 147 GOTO54
  148. 148 PRINT:PRINT"CONTINUE? (Y)YES[146] [158](N)NO"
  149. 149 GETB$:IFB$=""THEN149
  150. 150 IFB$="N"THEN54
  151. 151 IFB$=CHR$(13)THEN153
  152. 152 IFB$<>"Y"THEN149
  153. 153 PRINT"[147]RECORD  NAME":GOTO142
  154. 154 PRINT"[147][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]":
  155. 155 PRINT"  DISPLAY NAMES"
  156. 156 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":PRINT:FX=1
  157. 157 PRINT"[159] 1=DISPLAY ALL"
  158. 158 PRINT" 2=SELECT LETTER(A-Z)"
  159. 159 PRINT"[158] 3=SELECT NAME"
  160. 160 PRINT"[156] 0=RETURN TO MAIN MENU"
  161. 161 INPUT"[158] 1 , 2 , 3 , 0   1[157][157][157]";N$
  162. 162 IFN$="0"THEN54
  163. 163 IFN$="1"THEN167
  164. 164 IFN$="2"THEN168
  165. 165 IFN$<>"3"THEN161
  166. 166 GOTO175
  167. 167 XX=1:X1=Y-1:GOTO137
  168. 168 V=0:INPUT"LETTER (A-Z)";M$
  169. 169 GOSUB171:IFV=1THEN168
  170. 170 GOSUB193:GOTO195
  171. 171 MM=ASC(M$):IFMM>90ORMM<65THENPRINT"INVALID SELECTION":V=1:RETURN
  172. 172 XX=1:X1=25:X2=64
  173. 173 FORX=1TO26:X2=1+X2:IFMM=X2THENRETURN
  174. 174 XX=XX+25:X1=X1+25:NEXTX:STOP
  175. 175 PRINT"PLEASE ENTER LAST NAME,A SPACE,AND THEN FIRST INITIAL"
  176. 176 PRINT"EXAMPLE: ALFORD S"
  177. 177 INPUTA$
  178. 178 M$=LEFT$(A$,1):U=LEN(A$)
  179. 179 GOSUB171:GOSUB193:FY=5:R=0
  180. 180 FORX=1TOV-1:F=B%(X):GOSUB210:T=0
  181. 181 IFT=UTHENPRINT"[147]":GOSUB123:GOSUB185:NEXTX:T=0:GOTO154
  182. 182 T=T+1:E$=MID$(A$,T,1)
  183. 183 IFE$<>MID$(FB$(1),T,1)THENNEXTX:GOSUB188:T=0:GOTO154
  184. 184 GOTO181
  185. 185 PRINT"PRESS RETURN TO       CONTINUE"
  186. 186 GETC$:IFC$<>CHR$(13)THEN186
  187. 187 R=1:RETURN
  188. 188 IFR=1THENPRINT"[145][145]PRESS RETURN TO GO    BACK TO DISPLAY MENU":GOTO191
  189. 189 PRINT"[147]NAME NOT FOUND":PRINT:PRINT:PRINT:PRINT
  190. 190 PRINT"PRESS RETURN TO       CONTINUE"
  191. 191 GETC$:IFC$<>CHR$(13)THEN191
  192. 192 RETURN
  193. 193 V=1:FORX=XXTOX1:FORZ=1TOY:IFA%(Z)=XTHENB%(V)=X:V=V+1
  194. 194 NEXTZ:NEXTX:RETURN
  195. 195 PRINT"[147]RECORD  NAME"
  196. 196 FORX=1TOV-1:F=B%(X):GOSUB210:PRINTB%(X);FB$(1):IFX=16THEN201
  197. 197 NEXTX:PRINT
  198. 198 PRINT"PRESS RETURN TO GO    BACK TO JOB MENU"
  199. 199 GETC$:IFC$<>CHR$(13)THEN199
  200. 200 GOTO54
  201. 201 PRINT:PRINT"CONTINUE? NO(N) OR    YES(Y)"
  202. 202 GETB$:IFB$=""THEN202
  203. 203 IFB$="N"THEN54
  204. 204 IFB$=CHR$(13)THEN206
  205. 205 IFB$<>"Y"THEN202
  206. 206 PRINT"[147]RECORD  NAME"
  207. 207 REM***********************
  208. 208 REM* FDD BLOCK READ      *
  209. 209 REM***********************
  210. 210 GOSUB238
  211. 211 PRINT#15,"U1:";CH;FD;FT;FS
  212. 212 PRINT#15,"B-P:";CH;FP
  213. 213 GOSUB227
  214. 214 FORFI=1TOFY
  215. 215 INPUT#CH,FB$(FI):
  216. 216 NEXT
  217. 217 RETURN
  218. 218 REM***********************
  219. 219 REM* FDD BLOCK WRITE     *
  220. 220 REM***********************
  221. 221 GOSUB238
  222. 222 PRINT#15,"B-P:";CH;FP
  223. 223 FORFI=1TOFY:PRINT#CH,FB$(FI);CHR$(13);:NEXT
  224. 224 PRINT#15,"U2:";CH;FD;FT;FS
  225. 225 GOSUB227
  226. 226 RETURN
  227. 227 REM***********************
  228. 228 REM*  ERROR CHECK        *
  229. 229 REM***********************
  230. 230 INPUT#15,EN,EM$,ET,ES
  231. 231 IFEN=0THENRETURN
  232. 232 PRINT"ERROR STATUS:",EN;EM$;ET;ES
  233. 233 INPUT"CONTINUE?";Y$:IFY$="Y"THENRETURN
  234. 234 STOP
  235. 235 REM***********************
  236. 236 REM* SET TRACK & SECTOR  *
  237. 237 REM***********************
  238. 238 IFF<358THENF1=0:F2=22:F3=1:GOTO242
  239. 239 IFF>357ANDF<471THENF1=357:F2=20:F3=19:GOTO242
  240. 240 IFF>471ANDF<580THENF1=471:F2=19:F3=25:GOTO242
  241. 241 IFF>580THENF1=580:F2=18:F3=31
  242. 242 FT=INT(((F-F1)-1)/(F2-1))+F3
  243. 243 FS=F-F1-(FT-F3)*F2+(FT-F3-1)
  244. 244 RETURN
  245. 245 PRINT"DO YOU WISH A HARDCOPY[158]":
  246. 246 GETP$:IFP$="" THEN246
  247. 247 IFP$="N"THEN RETURN
  248. 248 IFP$="Y"THEN 249
  249. 249 OPEN4,4:CMD4:Q2=0
  250. 250 FORX=XXTOX1:F=A%(X):Q2=Q2+1:GOSUB210:
  251. 251 PRINT#4,CHR$(27)CHR$(69)A%(X);FB$(1)
  252. 252 IFQ2<>60THENPRINTQ2:NEXTX
  253. 253 IFX=X1+1THEN255
  254. 254 PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4:Q2=0:NEXTX
  255. 255 PRINT#4:CLOSE4:RETURN
  256. 256 PRINT"PRINT ADDRESS (Y/N)[146][158]"
  257. 257 GETH$:IFH$=""THEN257
  258. 258 IFH$="N"THENPRINT"[145][145][145]":RETURN
  259. 259 IFH$="Y"THENGOTO281
  260. 260 OPEN4,4:CMD4:PRINT#4,CHR$(27)CHR$(69)
  261. 261 PRINT#4," "TAB(R) FB$(1);" "
  262. 262 PRINT#4," "TAB(R) FB$(2);" "
  263. 263 PRINT#4," "TAB(R) FB$(3);" "
  264. 264 PRINT#4," "TAB(R) FB$(4);" "
  265. 265 PRINT#4," "TAB(R) FB$(5);" "
  266. 266 PRINT#4," "TAB(R) FB$(6);" "
  267. 267 PRINT#4," "TAB(R) FB$(7);" "
  268. 268 PRINT#4,CHR$(10)
  269. 269 PRINT#4:CLOSE4:RETURN
  270. 270 REM PRINT"[145][145][145]":PRINT"[147]":RETURN
  271. 271 PRINT"DO YOU WISH TO CORRECT"
  272. 272 GETZ$:IFZ$=""THEN272
  273. 273 IFZ$="Y"THEN275
  274. 274 RETURN
  275. 275 PRINT"[158]WHICH FIELD TO CHANGE [146]"
  276. 276 GETZ:IFZ<1THEN276
  277. 277 IFZ>8THEN276
  278. 278 PRINT"INPUT CORRECT DATA    [146]"
  279. 279 INPUTZ1$
  280. 280 FB$(Z)=Z1$:T=1:GOSUB221:T=0:RETURN
  281. 281 PRINT"[158]DO YOU WISH TO PRINT  ":
  282. 282 PRINT"LIST                  ":
  283. 283 PRINT"RETURN LABEL          ":
  284. 284 PRINT"[159]OR MAIL LABEL?        ":
  285. 285 PRINT"(L,R,M)[146]"
  286. 286 GETQ$:IFQ$=""THEN286
  287. 287 IFQ$="L"THEN310
  288. 288 IFQ$="R"THEN290
  289. 289 IFQ$="M"THEN300
  290. 290 OPEN4,4:CMD4:PRINT#4,CHR$(27)CHR$(69)
  291. 291 PRINT#4," "TAB(10) FB$(1);""
  292. 292 PRINT#4," "TAB(10) FB$(2);""
  293. 293 PRINT#4," "TAB(10) FB$(3);""
  294. 294 PRINT#4," "TAB(10) FB$(4);""
  295. 295 REM PRINT#4," "TAB(10)FB$(5);""
  296. 296 REM PRINT#4," "TAB(10)FB$(6);""
  297. 297 REM PRINT#4," "TAB(10)FB$(7);""
  298. 298 PRINT#4,CHR$(10)
  299. 299 GOTO269
  300. 300 OPEN4,4:CMD4: PRINT#4,CHR$(27)CHR$(69)
  301. 301 PRINT#4," "TAB(50)FB$(1)
  302. 302 PRINT#4," "TAB(50)FB$(2)
  303. 303 PRINT#4," "TAB(50)FB$(3)
  304. 304 PRINT#4," "TAB(50)FB$(4)
  305. 305 REM PRINT#4," "TAB(50)FB$(5)
  306. 306 REM PRINT#4," "TAB(50)FB$(6)
  307. 307 REM PRINT#4," "TAB(50)FB$(7)
  308. 308 PRINT#4,CHR$(10)
  309. 309 GOTO269
  310. 310 PRINT"[158]INPUT MARGIN SET"
  311. 311 INPUTR:GOTO260
  312. 312 PRINT"DO YOU WANT TO PRINT ALL FIELDS?         Y[146]-YES OR N[146]-NO"
  313. 313 INPUTM$:IFM$="Y"THENX3=7:Q=0:A1=0:GOTO316
  314. 314 IFM$<>"N"THEN312
  315. 315 X3=4:A1=0:Q=0
  316. 316 IFX3=7THENQ1=14
  317. 317 IFX3=4THENQ1=22
  318. 318 FORX=1TO664:IFA%(X)<>0THEN320
  319. 319 GOTO54
  320. 320 IFQ=Q1THEN334
  321. 321 Q=Q+1:F=A%(X):GOSUB210:IFA1=1THENA1=0:GOTO325
  322. 322 FORR=1TOX3:BB$(R)=FB$(R):A3%(R)=LEN(FB$(R)):NEXTR:A1=1
  323. 323 PRINTBB$(1);BB$(2);BB$(3);BB$(4);BB$(5);BB$(6);BB$(7)
  324. 324 NEXTX
  325. 325 FORR=1TOX3
  326. 326 OPEN4,4:A2=45-A3%(R):PRINT#4,BB$(R)TAB(A2)FB$(R)
  327. 327 CLOSE4:NEXTR:OPEN4,4:CMD4:PRINT:PRINT:PRINT#4:CLOSE4:NEXTX
  328. 328 GOSUB238
  329. 329 PRINT#15,"U1:";CH;FD;FT;FS
  330. 330 PRINT#15,"B-P:";CH;FP
  331. 331 GOSUB227:FI=FX
  332. 332 INPUT#CH,FB$(FI)
  333. 333 RETURN
  334. 334 IFQ1=14THEN337
  335. 335 REM:OPEN4,4:CMD4:PRINT:PRINT#4:CLOSE4
  336. 336 Q=0:GOTO321
  337. 337 OPEN4,4:CMD4:PRINT:PRINT:PRINT:PRINT#4:CLOSE4
  338. 338 Q=0:GOTO321
  339. 339 REM GOSUB5400
  340. 340 FORX=1TOY-1:F=A%(X):GOSUB207
  341. 341 CLOSE2:CLOSE15
  342. 342 OPEN15,9,15:OPEN2,9,2,"#"
  343. 343 GOSUB218
  344. 344 CLOSE15:CLOSE2
  345. 345 PRINT"[158]WAIT!     [157][157][157][157][157]"
  346. 346 OPEN15,8,15:OPEN2,8,2,"#"
  347. 347 NEXTX
  348. 348 CLOSE2:CLOSE15:OPEN15,9,15
  349. 349 OPEN5,9,5,"0:INDEX,S,W"
  350. 350 FORI=1TO664:PRINT#5,I$(I);CHR$(13);
  351. 351 NEXTI:CLOSE5:CLOSE15:CLOSE2:OPEN15,8,15,"I0":OPEN2,8,2,"#"
  352. 352 GOTO54
  353. 353 PRINT"[147]DO YOU WISH TO NEW DISK?":PRINT"Y[146]=YES N[146]=NO[158]"
  354. 354 INPUTS$
  355. 355 IFS$="N"THENRETURN
  356. 356 IFS$="Y"THEN357
  357. 357 PRINT"INSERT NEW DISK IN #9"
  358. 358 PRINT"PRESS 'C' WHEN READY  "
  359. 359 GETY$:IFY$=""THEN359
  360. 360 IFY$="C"THEN361
  361. 361 PRINT"[147]NEWING DISK #9. PLEASE WAIT"
  362. 362 OPEN1,9,15,"N0:DATA FILE,QQ"
  363. 363 CLOSE1:RETURN
  364. 364 A$=""
  365. 365 FORL=1TO1000
  366. 366 PRINT""
  367. 367 PRINTTAB(2)A$;"HIT RETURN TO CONTINUE"
  368. 368 GETR$:IFR$=CHR$(13)THENRETURN
  369. 369 FORI=1TO333:NEXT
  370. 370 IFA$=""THENA$="[146]":GOTO372
  371. 371 IFA$="[146]"THENA$="":GOTO372
  372. 372 NEXTL
  373.